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OPCOMDEF SDL = system definition file for OPCOM internal structures 
Version: "v04-000' ? 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
LL RIGHTS RESERVED. 


HIS SOFTWARE IS Cyne ence UNDER A LICENSE AND 4X ck Fag A AND corte? 
tral IN ACCORDANCE WITH THE TERMS OF SUC D WITH ich 
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® 
* 
USION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFIUARE OR NANY. OTH . 
ES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
THER PERSON. NO TITLE TO AND OUNERSHIP OF THE SOFTUARE 18 HEREBY * 
TRANSFERRED. “ 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. s 
® 
— 
2* 
® 
® 
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DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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¢ ABSTRACT: 
34 This file contains the SDL source for OPCOM internal structure 

5 definitions. 
: AUTHOR: CW Hobbs CREATION DATE: 27-Jun-1983 
3 MODIFICATION HISTORY: 
41 V03-003 CWH3169 CW Hobbs 55-May-1984 
¢g Second pass for cluster-wide OPCOM: 
4 - Remove CLUSTER_ENABLED bit, redo EFN numbers, add NODE_LEAVING 
44 - Add BOD and COD structures 
8 - Add esiD to clm header & bump structure version numbers for clm structures 
“3 v03-002 CWwH3002 CW Hobbs 16-Sep-1983 
48 Add io error bit 
49 
50 - 
51 module OPCOMDEF; 
52 

| 
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3 /*t 
i * Define bit vector names for global status 
6 constant ( | 


UTDOWN_ PENDING, /* OPCOM is doing an orderly shutdown 
LOGGING ENABLED, /* Log events 
AST_LOG FAILED, /* Last log attempt failed 
LOGFILE CLOSED, /* Logtite closed 
OLD_FORMAT_MSG /* This is an old format msg 
TIMESTAMP_PENDING, /* Timestamp function pending 
° /* OPCOM is busy 
FLUSH PENDING, /* Must flush log file 


IN_VARc Luster /* Member of VAXcluster 
) equals 0 increment 1 prefix GBLSTS_; 


/e 
* Define event flag numbers 


= —OO@ MSW —O0Oo~ 


constant ( 

ASYNCH, /* Throwaway for asynch i/o 

BRKTHRU, /* Break through service 

MAILBOX, /* Mailbox reads 
75 TIME STAMP /* Timer ast 
76 ) equals 1 increment 1 prefix EFN_; 
a, 

+ 
79 + =/* Define the common data structure header fields. 
80 /* ALL of the data structure definitions that follow 
81 /* this one have the first few fields in common. 
HG /* However, some of the fields are used differently, 
o7 8 depending on the type of data structure. 
85 aggregate eR fae enve structure prefix HDR_ fill; 
86 FLINK ongword unsigned; /* FTink to next data structure 
87 BLINK canner’ unsigned; /* Blink to last data structure 
88 SIZE word unsigned; /* Size of data structure 
89 TYPE byte unsigned; /* Type of data structure 
90 SCOPE byte unsigned; /* Scope of data structure 
91 SEQNUM Longword unsigned; /* Sequence # of data structure . 
38 IDEN lLongword unsigned; /* Cluster-wide ident (seqnum from original create) 
9 CSID Longword unsigned; /* Cluster system id 
94 NOD Lenpyore unsigned; /* Pointer to NOD structure 
95 SCS_ID union fill; 
96 SYSTEMID character Length 6; /* SCS System ID 
97 SCS_ID_S structure fill; 
98 SYSTEMIDL Lenquere unsigned; /* Low order longword 
99 SYSTEMIDH word unsigned; /* High order word 
100 end SCS_ID_S; 
101 end SCS_ID; 
108 FILLER word unsigned; /* Spare 
ie? —* lonquord unsigned; /* Back pointer to main data structure 
105 /* Define the common header status bits. 
198 /* The low 16 bits are common for all data structures. 
14 8 The high 16 bits are data structure specific. 
® 
109 STATUS structure longword unsigned; 
15-SEP-1984 $3:06:07.75 et v2.0 Pope 3 
15-SEP-1984 22:48:01 -$255$DUA28: COPCOM. SRC JOPCOMDEF .SDL; 1 

110 LAL bitfield mask; /* Block is from LAL 
111 BRD bitfield mask; /* Broadcast this message 
116 LOG bitfield mask; /* Log this message 
ii end STATUS; 
113 end HDR_AGGREGATE; 


fo To Te te Te To Te Te Te Te +} | 


F 5 


117. /* 

18 /* A system mailbox messes centeins a header. Here we will define 
138 fo the offsets to the fields inside that header. 

} 1 aggregate MSG_AGGREGATE structure prefix MSG_ fill; 

1 ‘ MSGTYPE word unsigned; /* Message a code 

124 REPL YMBX word unsig gned; /* Repl { Ox ynit number 
125 PRIVMASK1 longword unsigned; /* Firs tw of pri Y ilege mask 
1 § PRIVMASK2  lLongword unsigned; /* Second LW of pr We mask 
1 SENDERUIC longword unsigned; /* UIC of request sender 

128 USERNAME character Length \2: /* Relator to start of username 
129 ACCOUNT character length 8 /* Pointer to start of account 
150 BASEPRI byte unsigned; /* Sender's base priority 

} 1 FILLER_2 byte unsigned fill; /* ** 1 spare byte ** 

; : end MSG_AGGREGATE; 


EP-1984 g3:96:07.75 SDL _ v2.0 

EP-1984 22:48:01 ~$255$DUA28: COPCOM.SRCJOPCOMDEF . zk 1 
/* 

8 Define Request Context Block (RQCB) fields. 


aggregate RQCB_AGGREGATE structure prefix RQCB_ fill; 


/* 
Ge common header 
* 

FLINK lLongword unsigned; /* Flink to next RQCB 
BLINK ——. pated see /* Blink to Last RQCB 
SIZE word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
FILLER_1 byte unsigned fill; /* ** 1 spare byte ** 
SEQNUM lLongword unsigned; /* ROCB sequence number 


/e 
* Data above this mark is owned by the RQCB allocation routines 


OVERLAY character length 0; /* Address where OK to change RQCB 
#overlay_mark = .; 


/t 
IDENT Longword unsigned; /* Cluster-wide ident (seqnum from original create) 
CSID Longword unsigned; /* Cluster system id 
NOD Longvord unsigned; /* Pointer to NOD structure 
SCS_ID union f 
SYSTEMID character hen th 6; /* SCS System ID 
SCS_ID_S structure f 
“SYSTEMIDL — ins igned; /* Low order Longword 
SYSTEMIDH word unsigned; /* High order word 
end SCS_ IDL 
end SCS_ID; 
FILLER “vord ——— /* Spare 
“ lLongword unsigned; /* Backpointer to OCD 
a Define request status bits. 
STATUS structure Longvord unsigned prefix RQSTS_; 
FILLER_1 bitfield —* th 16 fill; 
IMPCANTEL bitfield mas /* Request implicitly canceled 


* end STATUS; 
/* Following 38 bytes are copied from the system mailbox message header 
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/* 
os Define Request Control Block (RCB) fields. 

oo 


aggregate RCB_AGGREGATE structure prefix RCB_ fill; 


— 
—— 


e 
/* common header 


| 
1 
18 MSGTYPE word unsigned; /* Message type * 
17 REPLYMBX word une tgned: /* Rept mailbox yn t number 
1 $ Longword unsigned; /* First LW of privilege mask H 
181 PRIVMASK Longword unsigned; /* Second LW of privilege mask : 
1 ¢ SENDERUI longword unsigned; /* UIC of request sender : 
1 SERNAME character Length 12; /* Pointer to start of username | ; 
1 character length 8; /* Pointer to start of account : 
185 BASEPRI byte unsigned; /* Sender's base priority | : 
1 FILLER 2 byte unsigned fill; /t we spare byte ** : 
1 ROSTCOBE byte unsigned; /* Request type code “ 
1 oP byte unsigned; /* Scope of request ; 
189 Longword unsigned; /* Request independent options : 
190 RQ_OPTIONS longword unsigned; /* Request dependent options | 3 
191 ATTNMASK1 longword unsigned; /* Attention mask part 1 : 
1 me ath $3:06:07.75 SDL_V2.0 page 5 | ; 
15-SEP-1984 22:48:01 -$255$DUA28 : COPCOM. SRCJOPCOMDEF .SDL;1 3 
136 ATTNMASK2 Longword unsigned; /* Attention mask part ; 3 
19 RQSTID Longword unsigned; /* User request identifier : 
130 i vIC Longword unsigned; /* Requestor UIC : 
138 . End of copied area, note that offset of MCB is used to determine end of copy 
138 te MCB longword unsigned; /* Address of MCB 3 
soe RQSTNUM —2 unsigned; /* Request number | : 
01 USERNAMELEN word unsigned; /* Length of username, blanks trimmed : 
4 Oe COUNTLEN word unsigned; /* Length of account, blanks trimmed : 
04 is Define operator status bits. | ; 
8 OPRSTS structure word unsigned prefix OPRSTS_; : 
0 TRM bitfield mask; /* Terminal 3 
08 REMTRM bitfield mask; /* Remote terminal : 
209 MBX bitfield mask; /* Mailbox * : 
10 IMPDISABLE bitfield mask; /* Operator implicitly disabled 3 
ip end OPRSTS; : 
i§ XSIZE word unsigned; /* Mailbox buffer size ; 
14 OPER_LEN longword unsigned; /* Operator device name size 3 
15 OPER_PTR longword unsigned; /* Operator device name pointer 3 
8 TEXT_LEN lLongword unsigned; /* Optional text size : 
1 TEXT_PTR lLongword unsigned; /* pet tenet text pointer : 
18 DSBLFLINK longword unsigned; /* Flink to next disabled oper : 
38 DSBLBLINK longword unsigned; /* Blink to last disabled oper : 
5 constant SIZE equals .; /* Size of RQCB in bytes ; 
§ constant OVERLAY_SIZE equals .-#overlay_mark; | : 
4 end ROCB_AGGREGATE; | : 
* 6 | ; 
| 
j 


/* 
5 FLINK 
—8 
$l 4 
3 TYP 
SCOPE 
40 SEQNUM 
4) IDENT 
4 c5id 
4 NOD 
44 SCS_ID union f 
45 SYSTEMID 
4 SCS_1D_S$ 
4 syST 
rs svat 
en 
50 end SCS_ 
51 FILLER 
26 cB 
STATUS 
3 /* 
5 RQSTNUM 
28 TEXTLEN 
3 TEXTPTR 
59 constant $12 
2 end RCB_AGGR 


FAR 


/e 
/* common header 
f@ 


Define OC 


ATUS 
FILLER_1 


Longword uns jgned: 
—— uns igned: 
word unsi jgned 3 
byte unsigned; 
byte unsig gned; 
Longword unsigned; 
Longword unsigned; 
lLongword unsigned; 
Longvord unsigned; 


character Len th 6; 


tructure 


IDL word une uns igned; 
unsi gned ; 


$ 
EM 
ites wor 
SCS_ 
ID; 


“word — 


ongword unsigned; 


longword unsigned; 


longword unsigned; 
Longword unsigned; 
longword unsigned; 


E equals .; 
EGA E; 


lLongword unsigned; 


———. 2 


cheracter ten th 6; 


struc pure ¢ 


MIDL ora uns igned; 
unsigned; 


cSs_I 
“yord pein 


E 
ng $¢8. 10-8 wor 
10; 


longword an OS 


B status bits. 


/t 
/* 


, Structure longword unsigned 
bitfield length 16 fill; 


H 5 


cr ine to next RCB 

on, o last RCP 

Size data structure 

Type of data structure 

Scope of RCB 

RCB Ss sequence number 

Cluster-wide ident’ (seqnum from original create) 
Cluster system 

Pointer to NOD structure 


SCS System ID 


/* Low order longword 
/* High order word 


Spare 
Pointer to RQCB 
Status longword 


Operator request number 
Length of request text 
Address of request text 


Size of RCB in bytes 


/t 
. Define Operator Control Block (OCB) fields 


aggregate OCB_AGGREGATE structure prefix OCB_ fill; 


Forward Link to next OCB 

Backward Link to Last OCB 

Size of OC 

tues of data structure 

Scope of OCB 

OCB sequence number 

Cluster-wide ident (seqnum from original create) 
Cluster system id 

Pointer to NOD structure 


SCS System ID 


/* Low order longword 
/* High order word 


Spare 
Address of RQCB 


sot v2.0 Page 
5 55$5UA28: COPCOM.SRCJOPCOMDEF «SDL 1 


<oO 
Ra 


| 
I 5 
PRAOPR bitfield mask; /* Operator is permanent OPC 
5 MAILBOX bitfield mask; /* Operator is a mailbox v04 
Ee end STATUS; | 
8 ATTNMASK Longword unsigned; /* Operator attention mask ; 
ATTNMASK Longword unsigned; /* Operator attention mask : 
DEVNAMLEN Longword unsigned; /* Operator device name Length : 
1 EVNAMPTR Longword unsigned; /* Operator device name string address | : 
§ BUF SIZ lLongword unsigned; /* Operator device buffer size : 
04 constant SIZE equals .; /* Size of OCB in bytes ; 
5 end OCB “ AGGREGA E; : 
15-SEP-1984 7.75 SDL _ V2.0 Page 8 3 
15-SEP-1984 2 333 08; if *$95$$5UA28: COPCOM. SRCJOPCOMDEF . Sos? | : 
7 ft : 
8 * Define Operator Class Descriptor (OCD) fields. : 
10 ; 
9 aggregate OCD_AGGREGATE structure prefix OCD_ fill; : 
18 ye 
13 8 common header 3 
* 3 
8 FLINK Longword uns toned; /* Flink to first OCB : 
1 BLINK veneer’ uns igned; /* Blink to Last OCB 3 
18 SIZE wor uns tened ; /* OCD dee. F 
19 TYPE byte unsigned; /* OCD t : 
0 SCOPE byte unsigned; /* cess 4 ocd : 
1 SEQNUM lLongword unsigned; /* OCD sequence number : 
¢ IDENT lLongword unsigned; /* Cluster-wide ident. (seqnum from original create) : 
CSID Longword unsigned; /* Cluster system id : 
4 NOD Lonevord unsigned; /* Pointer to NOD structure : 
5 SCS_ID union f : 
$ SYSTEMID character ten th 6; /* SCS System ID : 
SCS_1D_S structure f : 
8 “SYSTEMIDL ores uns igned; /* Low order Longword 3 
9 SYSTEMIDH word unsigned; /* High order word : 
end SCS_ 3 
1 end SCS_ID;~ ; 
§ FILLER “word — /* mere : 
yt lLongword unsigned; /* UIC associated w/ this OCD : 
5 /* Define OCD status flags. : 
STATUS , Structure lon novord unsigne 3 
FILLER bitfield Length 16 Tite ; 
9 TAPEANCEL bitfiel tg mask; /* At least one request was 3 
9 /* iaplicitly canceled. 3 
1 * end STATUS; : 
: NOTIFYMASK1 Longword unsigned; /* Operator notification mask : 
4 NOTIF YMASK2 —2 unsigned: /* Operator notification mask 3 
5 LCB ord uns unsigned; /* Pointer to logfile control block 3 
5 FILLER 1 a unsigned fill; /* et 2 spare bytes ** | : 
RQSTCOONT word uns \gned; /* Number of jgutstanding requests 3 
8 ROSTFLINK ponguore uns gned; - Flink to first request : 
9 RQSTBLINK vord uns unsigne 3% to ase request RQCB : 
50 FILLER 2 unsigned Mtl: spare bytes «* : 
51 OPERCOONT wore uns igne « Count 0 erators 
26 ATTNMASK1  lLongword uns gned; Operator attention mask! 
5 ATTNMASK2 longword unsigned; Operator attention mask2 


; 
9 


OPERFLINK lLongword uns }qneds /* 
Pountueet Longword unsigne 
OUNTVECTOR character Length Sia: /* 


constant SIZE soyets 4 /* 
end OCD_AGGREGATE 


J 

FLINK to first ocd 
BLINK to Last OCB 
Count vector (64 words) 


Size of OCD in bytes 


IESETa Eth 


$3554$5ua28:COPCOM. SRCJOPCOMDEF .¢pPe1 


/* 
8 Define the ciuster node information block (NOD) offsets. 


aggregate NOD_AGGREGATE structure prefix NOD_ 


/* 


/* common header 
/t 


/* S/W 


Size of data structure 
Type of data structure 


NOD sequence number 

Cluster-wide ident 2*7 from original create) 
Cluster system id (for this host) 

Pointer to NOD structure 


SCS System ID 


/* Low order longword 
/* High order word 


State of the node 
Values vor NOD -B_LSTATE, in form NOD_K_STATE_xxx 
his is the local node 
Recognized by S$GETSYI, but hasn't responded to messages 
Responded to messages, normally functioning partner 


Has disappeared from $GETSYI 


in /* Status longword 


baiting for acknowledgement from this node 

At least one ACK has been sent to this node 

We have displayed an i/o error message 

Node is leaving the cluster, flush messages without signaling 


CSID for the node (for this NOD block) 
/* Desc for node name 

/* Name Lengt 

/* Name address 


Gutter for actual name 
ncarnation number 


FLINK Longword unsigned; /* 
BLINK ——2 29 /* 
SIZE word unsigned; /* 
TYPE byte unsigned; /* 
FILL 1 byte unsigned; /* 
SEQNOM Longword unsigned; /* 
IDENT Longword unsigned; /* 
CSID longword unsigned; /* 
NOD lon word unsigned; * 
SCS_ID union f 
SYSTEMID character len th 6; /* 
SCS_1D_$ structure f 
SYSTEMID ord uns Uns igned; 
SYSTEMIDH ver unsigned; 
end SCS_ 
SCS_ID; 
STATE ayce —— /* 
stant /* 
STATE_LOCAL, /* T 
STATE_START /* 
STATE-ACTIVE /* 
STATE “DEPARTED /* 
) equals 1 increment 1; 
constant MSTATE MAX e —9.— NOD_ K_STATE gDEPARTED; 
FILL ¢ byte uf \gned; “/* Spa 
FILL longword uns gned; /* 
STATOS structure Longword uns igne d; 
FILLER 1 pittier¢ | — 16 
ACK_PERD bitfield mas /* 
ACK_ATTEMPTE bitfield mask; /* 
IOERR_DISPLAYED bitfield mask; /* 
NODE _CEAVING bitfield mask; /* 
end —* 
—2 D enquere unsigned; /* 
NAME DESC Pr ure quadword unsigned; 
RANE LEW —— — 
NAME ongword unsigne 
end RAME_DESC; 
NAME _BUF Character Length 16; /* 
SWINTARN aysdvord unsigned; 
SCS_ID un fil 


ion 
SYSTEMID character length 6; 
D_S structure fill; 


} 
fill 
FLINK to next NOD 
BLINK to previous NOD 
} 
| 
/* SCS System ID | 


<o 
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36 IDL tenquere une \ened: /*L Low anter” lLongword 
— ays! MIDH word unsigned; /* High order word 
SCS_1D_S; 
end $cs 1D; 
“SEP-1984 23:06:07.75 SD 0 Page 
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constant SIZE equals .; /* Size of NOD in bytes 


end NOD_AGGREGATE; 
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/* 

8 Define the Message control block (MCB) offsets. 


aggregate MCB_AGGREGATE structure prefix MCB_ fill; 


/* 
8 common header 
& * 
FLINK Longword unsigned; /* FLINK to next MCB 
BLINK vord uns 29 /* BLINK to previous MCB 
SIZE wor uns jened 3 /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 
SCOPE byte unsigned; /* Scope of MCB 
SEQNUM Longword unsigned; /* MCB sequence number 
IDENT Longword unsigned; /* Cluster-wide ident. (seqnum from original create) 
CSID Longword unsigned; /* Cluster system i 
NOD “srrtere unsigned; . /* Pointer to NOD structure 
SCS_ID union f 
SYSTEMID character ten th 6; /* SCS System ID 
SCS_ID_S structure 
SYSTEMIDL ores uns igned; /* Low order Longword 
over IDH word unsigned; /* High order word 
en — = S; 
end SCS_ID; 
FILLER word unsigned; /* Spare 
RQCB Longword unsigned; /* Pointer to RQCB 
* STATUS longword unsigned; /* Status longword 
MSGID longword unsigned; /* Message Identifier 
TEXTLEN longword unsigned; /* Message text length 
TEXTPTR Longword unsigned: /* Message text address 
10S8 longword unsigned; /* 1/0 status block 
constant SIZE equals .; /* Size of MCB in bytes 


end MCB “ AGGREGA E; 

et ¥20 Page 
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/t 

a Define the BRKTHRU Output Descriptor (BOD) offsets. 

aggregate BOD_AGGREGATE structure prefix BOD_ fill; 


/e 
* common header 
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4 FLINK Longword unsigned; /* FLI 
4 BLINK conquers unsigned; /* BL INK fo previous B0D 
4 3 E word unsigned; /* Size of data structure 
47 YPE byte unsigned; /* Type of data structure 
crs pe FILL_B byte unsigned; /* 
47 STATUS structure Longyord unsigned; /* Status longword 
475 DEAD itfield mask; /* BRKTHRU was very slow 
47 WAIT bitfield mask; /* A REPLY /WAIT is being executed 
47 L Or AL MODE bitfield mask; /* Target is on the local node 
478 HORT TIMEOUT bitfield mask; /* Use short timeout period 
8 end STATUS; 
am 
481 COMPLETION_ROUTINE address; /* Address of 1/0 completion routine 
ret CSID longword unsigned; /* CSID of remote node 
4 NODDSC structure quadword unsigned; /* Node name descriptor 
484 NODLEN longword unsigned; /* Node name length 
485 aw piper eens * Node name address 
en 3 
487 TRMDSC structure quadword unsigned; /* Terminal name descriptor 
488 TRA lLongword unsigned; /* Terminal name Length 
489 TRMPTR address; /* Terminal name address 
res ‘ end TRMDSC; 
® 
8 8 Items for parameter List for actual call to SBRKTHRU 
494 MSGBUF structure quadword unsigned; /* MSGBUF parameter for call 
495 MSGLEN longword unsigned; /* Message text Length 
496 MSGPTR address; /* Message text address 
497 end MSGBUF ; 
498 SENDTO structure quadword unsigned; /* SENDTO parameter for call 
499 SENLEN longword unsigned; /* Device name length 
500 SENPTR address; /* Device name address 
501 end MSGBUF ; 
206 SNDTYP longword unsigned; /* Type code for send 
50 I0SB structure quadword unsigned; /* 1/0 status block 
504 10S80 word unsigned; 
505 10SB1 word unsigned; 
506 10SB word unsigned; 
38 —— word unsigned; 
en : 
509 CARCON longword unsigned; /* Carriage control 
510 FLAGS lLongword unsigned; /* Flags longword 
33 * REQID longword unsigned; /* Requestor id 
318 QUE TIME quadword unsigned; /* Time that SBRKTHRU issued 
AE: SENBUF character length b4; /* Send name buffer 
15 NODBUF character Length 16; /* Node name buffer 
15-SEP-1984 23:06:07.75 SOL _V2.0 Pope 13 
15-SEP-1984 22:48:01 _$255$DUA28: COPCOM. SRC JOPCOMDEF .SDL; 1 
if * TRMBUF character length 20; /* Terminal name buffer 
18 constant SIZE equals .; /* Size of BOD in bytes 
33 end BOD_AGGREGATE; 
15-SEP-1984 23:06:07.75 SDL _ V2.0 Page 14 
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1 /e 
§ a Define the Cluster Output Descriptor (COD) offsets. 
4 
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RS 


Be Oe BeBe Se Se Se Se Se Fe Se Be Seas Ge SHS Se Se Oe Se Bete Se Se Se ee Se Se Se Ge Be Se Ge Se Se Se Se Se Se Se Se Se Sees te Seas Se Se Seas te Seas teas 


5 aggregate COD_AGGREGATE structure prefix COD_ fill; 

Pfs 

3 8 common header 

FLINK Longword unsigned; /* FLINK to next COD 
1 BLINK lLongword unsigned; /* 94 Ink to previous COD 
¢ word unsigned; /* Size of data structure 
TYPE byte unsigned; /* Type of data structure 

ye FILL_B byte unsigned; /* 
5 STATUS structure Longyord unsigned; /* Statu \gnpyere 
5 itfield mask; /* EXESCSP_CALL was very slow 
335 te end STATUS; 
40 CSID longword unsigned; /* CSID of remote node 
541 CSD address; /* CSD address 
266 NOD address; : 
54 ERRSTAT longword unsigned; /* Routine status code for error signal 
544 MSGBUF structure quadword unsigned; /* Message for remote node 
545 MSGLEN longword unsigned; /* Message text length 
248 MSGPTR address; /* Message text address 
re 4 end MSGBUF ; 
38 * QUE TIME quadword unsigned; /* Time that EXESCSP_CALL issued 
551 constant SIZE equals .; /* Size of COD in bytes 
228 end COD_AGGREGATE; 
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/* Define Structure Control Block (SCB) fields. 

/* This control block contains information about all 
/* data structures, and is used by the create and 

/* delete data structure routines. Each data structre 
/* is represented in the SCB table by an entry of the 
/* following form. (LAL = Look Aside List) 


OONOUSE 


wr 


aggregate SCB_AGGREGATE structure prefix SCB_ fill; 


~ 
* 


/* Address of the nod for the system 


PUPP SVP AIAAA MMIII 


SIZE word unsigned; /* Size of data structure | 
LAL_COUNT word unsigned: /* # of Look-aside List entries 

67 SEQRUM longword unsigned; /* Count of blocks created 
FLINK lLongword unsigned; /* Flink to first LAL entry 

$3 BLINK longword unsigned; /* Blink to last LAL entry 

71 constant SIZE cquels 7 /* Size of SCB in bytes 

Lf: end SCB_AGGREGATE; 
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7% ft 

75 /* Define the Request Descriptor Block (RDB) fields. Each 
7 /* RDB structure contains some control information on a 
7 /t pers cular request. Each type of request that is known 
— * y OPCOM is represented by an RDB. 


st aggregate RDB_AGGREGATE structure prefix RDB_ fill; 


: 


596 


609 


WN —OOONOUSWN—O 


AACA AOOAOA SOOO 
Noon ow oo wr ee 


anon 
Nm 
nue 


gl o 
mew 


w 
@o 


/t+ 
/* 


HANDLER Longword unsigned; 
COUNT lLongword unsigned; 
OPTIONS Longword unsigned; 
ATTNMASK Longword unsigned; 
ATTNMASK lLongword unsigned; 


constant SIZE equals .; 
end RDB_AGGREGATE; 


Cluster communications messages. 


/* 
/* 
/* 
/* 
/* 


/* 


N 5 


Address of request handler 
Count of requests received 
Options bit mask 

Operator attention mask 
Operator attention mask 


Size of RDB in bytes 


1984 23:06:07.75 
1984 22:4 Sf 


These messages are sent between OPCOMs on 
/* different nodes to implement cluster operations. 


These messages have a short 


8 header which is identical for all messages. 


/t 
8 Define header for all cluster messages. 


RQSTCODE byte unsigned; 
CLM_CODE byte unsigned; 
DS_VERSION byte unsigned; 
SW_VERSION byte unsigned; 
LENGTH word unsigned; 
fill_1 word unsigned; 
CSID longword unsigned; 


constant SIZE equals .; 


end CLUSTER_MESSAGE; 


SDL V2.0 P 1 
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This fills the first part of the message 


aggregate CLUSTER_MESSAGE structure prefix CLM_ fill; 


/* Same as OPC$B_RQSTCODE 
/* Cluster-specific request code 
/* Version of data structure 

/* Version of OPCOM software 
Size of structure 

spare word */ 

CSID of sender © 


a to OPCOM. OPCOM then sends the same packet to other nodes with a new request code. 
® 


aggregate RPYBRD_MESSAGE structure prefix RPYBRD_ fill; 


CLM_HEADER character length CLM_K_SIZE fill; 


genstant DS_VERSION equals 6; 


OPTIONS structure word unsigned; 
ALL bitfield mask; 
BELL bitfield mask; 
NODE bitfield mask; 
NOTIFY bitfield mask; 


/* /ALL involved 

/* /BELLS involved 

/* /NODE ; 

/* Notify of any actions 


D 


0 
U 


7 


(OPC$_X_CLUSMSG) 
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/* 
/* Define RPYBRD (REPLY broadcast) message fields. This message is sent from REPLY command 


— | 


OP! 


o 
Ww 


Ooo OVODNOUS W009 


BAAAARARAD ERE RE ERE Re 


SESSSEES 


SHUTDOWN bitfield mask; 
TERMINAL bitfield mask; 
URGENT bitfield mask; 
USERNAME bitfield mask; 
WAIT bitfield mask; 
BROAD_LOCAL bitfield mask; 
BROAD _REMOTEALL bitfield mask; 
BROAD_REMOTELST bitfield mask; 
LOCAL_NODE bitfield mask; 
end OPTIONS; 

fille word unsigned; 


8 eh A 


/$ 

/T 

/U 

/U 

/W ** 

Broadcast is going to local node 

Broadcast is going to all remotes 

haa of nodes (rpybrd_w targ_node_len <> 0) 


ommand originated on the local node 


/* Length fields point into the text area at the end of the block. Text 
/* fields are concatenated at the end, in the same order as the length 


/* fields. 
/* 


SEND_CSID re unsigned; 
SEND_TERM_LEN word unsigned; 
SEND_USER_LEN word unsigned; 
SEND_NODE LEN word unsigned; 
MESSAGE _LEN word unsigned; 
OPTIONAC_OFF word unsigned; 
TARG_TERA_LEN word unsigned; 
TARG_USER_LEN word unsigned; 
TARG_NODE _LEN word unsigned; 
TARG_NODE _ OF F word unsigned; 
fill_3 word unsigned; 


* Formatted message buffer 

FORMAT DESC structure quadword unsigned; 
FORMAT_LEN Longword unsigned; 
FORMAT PTR address; 
end FORMAT_DESC; 

constant MIN_SIZE equals .; 

TEXT character length 0; 


end RPYBRD_MESSAGE; 


/t 


/* Define RPYNOT (REPLY broadcast notification) message fields. 
back to the node where a reply originated. 


/ 


* 
/t 


/* 


CSID for sending node 
Terminal name of sender 
User name of sender 
Name of sending node 
Length of message text 
ffset to start of optional items 
Terminal name(s) of target terms 
User name of target user(s) 
Name of target node(s) 
Offset to first node 


Min message size 
Text 


84 $3:06:07.75 
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aggregate RPYNOT_MESSAGE structure prefix RPYNOT_ fill; 
CLM_HEADER character length CLM_K_SIZE fill; 


constant DS_VERSION equals 2; 


/* Length fields point into the text area at the end of the block. Text 
/* fields are concatenated at the end, in the same order as the length 


/* fields. 
« 


word unsigned; 


TERM_LEN 
MESSAGE _LEN word unsigned; 


constant MIN_SIZE equals .; 


/* 
/* 


/e 


Terminal name of sender 
Length of message text 


Min message size 
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This message is sent from OPCOM 


— — — — — — — — — — — — — — — — 


OPC 
V04 


$ TEXT character length 0; /* Text 
f end RPYNOT_MESSAGE; 
J 
705 /* Define SHUT message fields. This message is sent from OPCOM to remote nodes to 
7 /* shut down opcom. 
708 
A aggregate SHUT_MESSAGE structure prefix SHUT_ fill; 
711 CLM_HEADER character length CLM_K_SIZE fill; 
ng constant DS_VERSION equals 3; 
ay] constant MIN_SIZE equals .; /* Min message size 
rig end SHUT_MESSAGE; 
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718 «/* 
719 =/* Define CLMRQCB message fields. This message is sent between OPCOMs. The message 
720 /* is essentially a copy of the OPCOM RQCB structure, except that all text strings 
f 2 8 are concatenated to the end of the message (after the CLMRQCB_T_TEXT field). 
7 
g : aggregate CLMRQCB_MESSAGE structure prefix CLMRQCB_ fill; 
7 /* 
— * The front part consists of the CLM header, then an entire RQCB block. 

* 
729 CLM_HEADER character length CLM_K_SIZE fill; 
7 constant DS_VERSION equals 2; 
4 1 ROCB_OVERLAT character length RQCB_K_SIZE; 
4 : . Other information necessary to ship RQCBs between nodes 
735 MCB_MSGID lLongword unsigned; /* Message code from MCB 
73 WCS_STATUS Longword unsigned; /* Status code from MCB 

* 
7 /* Length fields point into the text area at the end of the block. Text 
739 /* fields are concatenated at the end, in the same order as the length 
740 /* fields. 
2 
Sh constant MIN_SIZE equals .; /* Min message size 
—8 TEXT character length 0; /* Text 
Si end CLMROCB_MESSAGE; 
74 
750 «~/* 


751 =/* Define CLMACK message fields. This message is sent between OPCOMs to acknowledge 
r38 /* each other. 
/e 

& 


aggregate CLMACK_MESSAGE structure prefix CLMACK_ fill; 


/e 
CLM_HEADER character length CLM_K_SIZE fill; 


dD 6 


constant DS_VERSION equals 2; | 
C$1D Lonpyord unsigned; /* Cluster system id 
SCS_1D union fill; 
SYSTEMID character qr th 6; /* SCS System ID 
SCS_1D ; structure fill; 
SYSTEMIDL Longuor unsigned; /* Low order longword 
ob A is ta Re unsigned; /* High order word 
en bs 


end SCS_1D;~ 
constant SIZE equals .; 
end CLMACK_MESSAGE; 
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{te 


/* Connection manager messages. These messages are sent from cluster 
8 connection management to the OPCOM process on the local node. 


/* 
8 Define header for all CNXMAN messages. 


aggregate CNXMAN_MESSAGE structure prefix CNM_ fill; 


RQSTCODE byte unsigned; /* OPC$B_RQSTCODE (value OPC$_X_CNXMAN) 
CNM_CODE byte unsigned; /* CNXMAR-specific request code 
DS_VERSION byte unsigned; /* Version of data structure 
SW VERSION byte unsigned; /* Version of CNXMAN software 
LENGTH word unsigned; /* Total Length (including extensions) 
filt_1 word unsigned; /* seere word */ 
CSID Lonpyord unsigned; /* CSID associated with message 
SCS_ID union fill; 
SYSTEMID character length 6; /* 48 bit SCS System ID 
SCS_ID_S structure fill; 
SYSTEMIDL longword unsigned; /* Low order longword 
SYSTEMIDH word unsigned; /* High order word 
one SCS_1D_S; 
e ; 
SCSNODE structure quadword unsigned; /* Quadword buffer for node name 
SCSNODEL longword unsigned; /* Low order name 
SCSNODEH longword unsigned; /* High order name 


end SCSNODE; 
constant SIZE equals .; 
end CNXMAN_MESSAGE; 
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/* 
/* Define 78* fields for a perticulor gonnest ton manager message. The 
/* CNM_B_CNM_CODE field in the header implies the appropriate message 


/* extension. 
/e 


aggregate xxx_MESSAGE structure prefix xxx_ fill; 


CNM_HEADER c¢ 


E 6 
R haracter Length CNM_K_SIZE fill; 
—— DS_VERS 


ac ; 
ION equals 1; /* Gives us xxx_K_DS_VERSION 


constant MIN_SIZE equals .; /* Min message size 


constant SIZE equals .; /* Total message size 
end xxx_MESSAGE; 


end_module OPCOMDEF ; 
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